home *** CD-ROM | disk | FTP | other *** search
/ Micro Dingo 39 / Micro_Dingo_39_CD1.mdx / Delires / Hentai / sim.swf / scripts / DefineButton2_878 / BUTTONCONDACTION on(release).as
Text File  |  2002-05-21  |  626b  |  39 lines
  1. on(release){
  2.    stopAllSounds();
  3.    if(money >= 450 and 99 >= day)
  4.    {
  5.       money -= 450;
  6.       day += 1;
  7.       count = 0;
  8.       countt = 0;
  9.       counttt = 0;
  10.       countttt = 0;
  11.       luck = random(20);
  12.       if(1 >= luck)
  13.       {
  14.          mood = 100;
  15.          cond = 2;
  16.       }
  17.       else if(11 >= luck)
  18.       {
  19.          mood = 20;
  20.          cond = 0;
  21.       }
  22.       else if(15 >= luck)
  23.       {
  24.          mood = 100;
  25.          cond = 1;
  26.       }
  27.       else
  28.       {
  29.          mood = 100;
  30.          cond = 0;
  31.       }
  32.       gotoAndStop(1661);
  33.    }
  34.    else
  35.    {
  36.       gotoAndStop(1319);
  37.    }
  38. }
  39.